object frmInterval: TfrmInterval
  Left = 313
  Top = 180
  ActiveControl = EditInterval
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Set Time Interval'
  ClientHeight = 203
  ClientWidth = 369
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 16
  object lblIntervalDescription: TLabel
    Left = 16
    Top = 12
    Width = 338
    Height = 56
    Caption = 
      'The smaller the time interval, the more accurate the simulation,' +
      ' but the slower it runs. This is why you have to balance the acc' +
      'uracy of the simulation with its speed.'
    WordWrap = True
  end
  object lblSeconds: TLabel
    Left = 296
    Top = 87
    Width = 54
    Height = 16
    Caption = 'Seconds'
  end
  object lblinterval: TLabel
    Left = 12
    Top = 84
    Width = 80
    Height = 16
    Caption = '&Time Interval:'
    FocusControl = EditInterval
  end
  object EditInterval: TEdit
    Left = 107
    Top = 83
    Width = 181
    Height = 24
    TabOrder = 0
    Text = '1'
    OnChange = EditIntervalChange
  end
  object ScrollBarInterval: TScrollBar
    Left = 12
    Top = 127
    Width = 346
    Height = 20
    Max = 13
    TabOrder = 1
    TabStop = False
    OnScroll = ScrollBarIntervalScroll
  end
  object butCancel: TButton
    Left = 176
    Top = 168
    Width = 83
    Height = 25
    Caption = '&Cancel'
    TabOrder = 2
    OnClick = ButtonClick
  end
  object butOk: TButton
    Left = 272
    Top = 168
    Width = 83
    Height = 25
    Caption = '&Ok'
    Default = True
    TabOrder = 3
    OnClick = ButtonClick
  end
end